home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / pdf_draw.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  52.6 KB  |  1,771 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdf_draw.ps 9300 2008-12-21 07:46:52Z alexcher $
  17. % pdf_draw.ps
  18. % PDF drawing operations (graphics, text, and images).
  19.  
  20. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  21. .currentglobal true .setglobal
  22. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  23. GS_PDF_ProcSet begin
  24. pdfdict begin
  25.  
  26. % For simplicity, we use a single interpretation dictionary for all
  27. % PDF graphics operations, even though this is too liberal.
  28. /drawopdict 100 dict def
  29.  
  30. % ================================ Graphics ================================ %
  31.  
  32. % ---------------- Functions ---------------- %
  33.  
  34. % Note that resolvefunction converts a PDF Function to a PostScript Function;
  35. % resolve*fnproc converts a PDF function to a PostScript procedure.
  36. % We need to process all required and optional parameters to resolve any
  37. % use of indirect references.
  38.  
  39. /fnrdict mark
  40.   0 { .resolvefn0 }
  41.   2 { .resolvefn2 }
  42.   3 { .resolvefn3 }
  43.   4 { .resolvefn4 }
  44. .dicttomark readonly def
  45.  
  46. /.resolvefn0 {
  47.   dup length 1 add dict .copydict    % make room for DataSource
  48.   % now resolve any indirect references
  49.   dup /Size 2 copy knownoget { put } { pop pop } ifelse
  50.   dup /BitsPerSample 2 copy knownoget { put } { pop pop } ifelse
  51.   dup /Order 2 copy knownoget { put } { pop pop } ifelse
  52.   dup /Encode 2 copy knownoget { put } { pop pop } ifelse
  53.   dup /Decode 2 copy knownoget { put } { pop pop } ifelse
  54.   
  55.         % Don't lose our place in PDFfile.
  56.   PDFfile fileposition exch
  57.   dup //true resolvestream
  58.         % The stream isn't positionable, so read all the data now.
  59.         % Stack: filepos fndict stream
  60.   1 index /Range get length 2 idiv 2 index /BitsPerSample get mul
  61.   2 index /Size get { mul } forall
  62.   7 add 8 idiv
  63.   dup 65535 le {
  64.     string 1 index exch readstring pop
  65.   } {
  66.     1 index exch () /SubFileDecode filter /ReusableStreamDecode filter
  67.   } ifelse
  68.   exch closefile
  69.         % Stack: filepos fndict data
  70.   exch dup /DataSource 4 -1 roll put
  71.   exch PDFfile exch setfileposition
  72. } bdef
  73.  
  74. /.resolvefn2 {
  75.   dup length dict .copydict
  76.   dup /C0 2 copy knownoget { put } { pop pop } ifelse
  77.   dup /C1 2 copy knownoget { put } { pop pop } ifelse
  78.   dup /N 2 copy knownoget { put } { pop pop } ifelse
  79. } bdef
  80.  
  81. /.resolvefn3 {
  82.   dup length dict .copydict
  83.   dup /Bounds 2 copy knownoget { put } { pop pop } ifelse
  84.   dup /Encode 2 copy knownoget { put } { pop pop } ifelse
  85.   dup /Functions 2 copy oget mark exch dup {
  86.     oforce .resolvefn
  87.   } forall
  88.   counttomark -1 roll astore exch pop put
  89. } bdef
  90.  
  91. /.resolvefn4 {
  92.   PDFfile fileposition exch             % filepos fndict
  93.   dup true resolvestream                % filepos fndict stream
  94.   exch dup length dict copy             % filepos stream fndict2
  95.   dup /Function undef                   % filepos stream fndict2
  96.   exch dup token not {
  97.     () /rangecheck cvx signalerror
  98.   } if
  99.   exch token {
  100.     /rangecheck cvx signalerror
  101.   } if
  102.         % Use .bind to avoid idiom recognition.
  103.   .bind
  104.   1 index /Function 3 -1 roll put
  105.   exch PDFfile exch setfileposition
  106. } bdef
  107.  
  108. /.resolvefn {        % <fndict> .resolvefn <fndict'>
  109.   dup length dict .copydict
  110.   dup /Domain 2 copy knownoget { put } { pop pop } ifelse
  111.   dup /Range 2 copy knownoget { put } { pop pop } ifelse
  112.   dup /FunctionType oget //fnrdict exch get exec
  113. } bdef
  114.  
  115. /resolvefunction {    % <fndict> resolvefunction <function>
  116.   .resolvefn
  117.   PDFDEBUG { pdfdict /PDFSTEPcount .knownget { 1 le } { true } ifelse { (%Function: ) print dup === flush } if } if
  118. } bdef
  119.  
  120. /resolvefnproc {    % <fndict> resolvefnproc <proc>
  121.   resolvefunction .buildfunction
  122. } bdef
  123.  
  124. /resolveidfnproc {    % <fndict> resolveidfnproc <proc>
  125.   dup /Identity eq { pop { } } { resolvefnproc } ifelse
  126. } bdef
  127.  
  128. /resolvedefaultfnproc {    % <fndict> <default> resolved'fnproc <proc>
  129.   1 index /Default eq { exch pop } { pop resolveidfnproc } ifelse
  130. } bdef
  131.  
  132. % ---------------- Shadings ---------------- %
  133.  
  134. /shrdict mark
  135.   /BBox {
  136.     dup dup dup aload pop normrect_elems
  137.     5 -1 roll astore
  138.   } bind
  139.   /ColorSpace {
  140.     resolvecolorspace
  141.   } bind
  142.   /Function {
  143.     dup type /dicttype eq {
  144.       resolvefunction
  145.     } {
  146.       [ exch { oforce resolvefunction } forall ]
  147.     } ifelse
  148.   } bind
  149. .dicttomark readonly def
  150.  
  151. /resolveshading {    % <shadingstream> resolveshading <shading>
  152.   dup /.shading_dict .knownget {
  153.     exch pop 
  154.     dup /ShadingType get 4 ge {
  155.       dup /DataSource get 0 setfileposition
  156.     } if
  157.   } {
  158.     dup
  159.     PDFfile fileposition exch
  160.     mark exch {
  161.       oforce //shrdict 2 index .knownget { exec } if
  162.     } forall .dicttomark
  163.     dup /ShadingType get 4 ge {
  164.       dup dup true resolvestream
  165.         % Make a reusable stream so that the shading doesn't
  166.         % reposition PDFfile at unexpected times.
  167.       /ReusableStreamDecode filter /DataSource exch put
  168.     } if 
  169.     exch PDFfile exch setfileposition
  170.     dup 3 1 roll /.shading_dict exch put
  171.   } ifelse
  172. } bdef
  173. /resolvesh {        % <shname> resolvesh <shading>
  174.             % <shname> resolvesh <null>
  175.   Page /Shading rget {
  176.     resolveshading
  177.   } {
  178.     null
  179.   }ifelse
  180. } bdef
  181.  
  182. % ---------------- Halftones ---------------- %
  183.  
  184. /spotfunctions mark
  185.   /Round {
  186.     abs exch abs 2 copy add 1 le {
  187.       dup mul exch dup mul add 1 exch sub 
  188.     } {
  189.       1 sub dup mul exch 1 sub dup mul add 1 sub
  190.     } ifelse
  191.   }
  192.   /Diamond {
  193.     abs exch abs 2 copy add .75 le {
  194.       dup mul exch dup mul add 1 exch sub
  195.     } {
  196.       2 copy add 1.23 le {
  197.     .85 mul add 1 exch sub
  198.       } {
  199.     1 sub dup mul exch 1 sub dup mul add 1 sub
  200.       } ifelse
  201.     } ifelse
  202.   }
  203.   /Ellipse {
  204.     abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt {
  205.       pop dup mul exch .75 div dup mul add 4 div 1 exch sub
  206.     } {
  207.       dup 1 gt {
  208.     pop 1 exch sub dup mul exch 1 exch sub
  209.     .75 div dup mul add 4 div 1 sub
  210.       } {
  211.     .5 exch sub exch pop exch pop
  212.       } ifelse
  213.     } ifelse
  214.   }
  215.   /EllipseA { dup mul .9 mul exch dup mul add 1 exch sub }
  216.   /InvertedEllipseA { dup mul .9 mul exch dup mul add 1 sub }
  217.   /EllipseB { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub }
  218.   /EllipseC { dup mul .9 mul exch dup mul add 1 exch sub }
  219.   /InvertedEllipseC { dup mul .9 mul exch dup mul add 1 sub }
  220.   /Line { exch pop abs neg }
  221.   /LineX { pop }
  222.   /LineY { exch pop }
  223.   /Square { abs exch abs 2 copy lt { exch } if pop neg }
  224.   /Cross { abs exch abs 2 copy gt { exch } if pop neg }
  225.   /Rhomboid { abs exch abs 0.9 mul add 2 div }
  226.   /DoubleDot { 2 {360 mul sin 2 div exch } repeat add }
  227.   /InvertedDoubleDot { 2 {360 mul sin 2 div exch } repeat add neg }
  228.   /SimpleDot { dup mul exch dup mul add 1 exch sub }
  229.   /InvertedSimpleDot { dup mul exch dup mul add 1 sub }
  230.   /CosineDot { 180 mul cos exch 180 mul cos add 2 div }
  231.   /Double { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add }
  232.   /InvertedDouble {
  233.     exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg
  234.   }
  235. .dicttomark readonly def
  236.  
  237. /htrdict mark
  238.   1 { .resolveht1 }
  239.   5 { .resolveht5 }
  240.     % We don't support types 6, 10, or 16 yet.
  241. .dicttomark readonly def
  242.  
  243. /.resolveht1 {
  244.   mark exch {
  245.     oforce
  246.     1 index /SpotFunction eq {
  247.       dup type /nametype eq
  248.     { //spotfunctions exch get } { resolvefnproc }
  249.       ifelse
  250.     } {
  251.       1 index /TransferFunction eq {
  252.     resolveidfnproc
  253.       } if
  254.     } ifelse
  255.   } forall .dicttomark
  256. } bdef
  257.  
  258. /.resolveht5 {
  259.   mark exch {
  260.     oforce dup type /dicttype eq { resolvehalftone } if
  261.   } forall .dicttomark
  262. } bdef
  263.  
  264. /resolvehalftone {    % <dict> resolvehalftone <halftone>
  265.   dup /HalftoneType get
  266.   dup //htrdict exch .knownget {
  267.     exch pop exec
  268.   } {
  269.     (\n\n   **** Unsupported HalftoneType ) pdfformaterror
  270.     =string cvs pdfformaterror (. ***\n\n) pdfformaterror
  271.     /resolvehalftone cvx /unregistered signalerror
  272.   } ifelse
  273. } bdef
  274.  
  275. % ---------------- Graphics state management ---------------- %
  276.  
  277. /cmmatrix matrix def
  278. drawopdict begin
  279.             % Graphics state stack
  280.   /q { q } def
  281.   /Q { Q } def
  282.             % Graphics state setting
  283.   /cm { //cmmatrix astore
  284.         .getpath      
  285.         exch concat
  286.         newpath { exec } forall
  287.     % If inside a BT/ET block, we need to update the TextSaveMatrix
  288.     currentdict /TextSaveMatrix .knownget {
  289.       //cmmatrix exch dup concatmatrix pop
  290.     } if
  291.       } bdef
  292.  
  293.   /i { 1 .min setflat } bdef
  294.   /J /setlinecap load def
  295.   /d /setdash load def
  296.   /j /setlinejoin load def
  297.   /w /setlinewidth load def
  298.   /M { 1 .max setmiterlimit } bdef
  299.   /gs { gs } def
  300. end
  301.  
  302. % Each entry in this dictionary is
  303. %    <gsres> <value> -proc- <gsres>
  304. /gsbg {
  305.   /BGDefault load resolvedefaultfnproc setblackgeneration
  306. } bdef
  307. /gsucr {
  308.   /UCRDefault load resolvedefaultfnproc setundercolorremoval
  309. } bdef
  310. /gstr {
  311.   dup type /arraytype eq {
  312.     { oforce /TRDefault load resolvedefaultfnproc } forall
  313.     setcolortransfer
  314.   } {
  315.     /TRDefault load resolvedefaultfnproc settransfer
  316.   } ifelse
  317. } bdef
  318. /gsparamdict mark
  319.   /SA { setstrokeadjust }
  320.   /OP { 1 index /op known not { dup op } if OP }
  321.     % The PDF 1.3 specification says that the name /Default is only
  322.     % recognized for {BG,UCR,TR}2.  However, PDF 1.3 files produced
  323.     % by Adobe Acrobat Distiller 4.0 for Windows use the name /Default
  324.     % with the older keys, so we have to implement this.
  325.   /BG { 1 index /BG2 known { pop } { gsbg } ifelse }
  326.   /UCR { 1 index /UCR2 known { pop } { gsucr } ifelse }
  327.   /TR { 1 index /TR2 known { pop } { gstr } ifelse }
  328.   /HT {
  329.     dup /Default eq {
  330.       pop .setdefaulthalftone
  331.     } {
  332.     %****** DOESN'T IMPLEMENT THE STREAM CASE YET ******
  333.       resolvehalftone sethalftone
  334.     } ifelse
  335.     % the transfer function may dependent on the halftone, so make sure
  336.     % it is set if included in the graphic state (otherwise this is
  337.     % subject to order of a dictionary forall, which is unpredictable)
  338.     dup /TR2 .knownget {
  339.       dup /Default eq { oforce gsparamdict /TR2 get exec } { pop } ifelse
  340.     } {
  341.       dup /TR .knownget {
  342.         /dup /Default eq { oforce gsparamdict /TR get exec } { pop } ifelse
  343.       } if
  344.     } ifelse
  345.   }
  346.   /HTP {
  347.     % HTP may be present even if this isn't a DPS interpreter.
  348.     /sethalftonephase where { pop aload pop sethalftonephase } { pop } ifelse
  349.   }
  350.     % PDF 1.3
  351.   /Font { aload pop Tf }
  352.   /LW { setlinewidth }
  353.   /LC { setlinecap }
  354.   /LJ { setlinejoin }
  355.   /ML { 1 .max setmiterlimit }
  356.   /D { aload pop setdash }
  357.   /RI { ri }
  358.   /op { op }
  359.   /OPM { OPM }
  360.   /BG2 { gsbg }
  361.   /UCR2 { gsucr }
  362.   /TR2 { gstr }
  363.   /FL { 1 .min setflat }
  364.   /SM {
  365.     % SM may be present even if this is only a Level 2 interpreter.
  366.     /setsmoothness where { pop setsmoothness } { pop } ifelse
  367.   }
  368.     % PDF 1.4
  369.     % All of these require the "transparency" feature in the interpreter.
  370.   /ca { ca }
  371.   /CA { CA }
  372.   /SMask { gssmask }
  373.   /AIS { AIS }
  374.   /BM { BM }
  375.   /TK { TK }
  376. .dicttomark readonly def
  377. /gs {            % <gsres> gs -
  378.   Page /ExtGState rget {
  379.     % We keep the dictionary on the stack during the forall so that
  380.     % keys that interact with each other have access to it.
  381.     dup {
  382.       oforce exch gsparamdict exch .knownget { exec } { pop } ifelse
  383.     } forall pop
  384.   } if
  385. } bdef
  386.  
  387. % ------ Transparency support ------ %
  388.  
  389. /gssmask {
  390.   dup /None eq PDFusingtransparency not or {
  391.     pop null
  392.   } {
  393.     % Preprocess the SMask value into a parameter dictionary for
  394.     % .begintransparencymaskgroup, with added /BBox and /Draw keys.
  395.     mark exch        % Stack: mark smaskdict
  396.     dup /S oget /Subtype exch 3 2 roll
  397.             % Stack: mark ... smaskdict
  398.     dup /BC knownoget {
  399.       dup /Background exch 4 2 roll
  400.       gsave
  401.         1 index /G oget /Group oget /CS knownoget {
  402.       resolvecolorspace dup setgcolorspace csput
  403.     } if
  404.         aload pop setcolor [ currentgray ]
  405.       grestore
  406.       /GrayBackground exch 3 2 roll
  407.     } if
  408.     dup /TR knownoget {
  409.       resolveidfnproc /TransferFunction exch 3 2 roll
  410.     } if    
  411.     dup /G oget dup /BBox oget /BBox exch 4 2 roll
  412.     /.execmaskgroup cvx 2 packedarray cvx /Draw exch 3 2 roll
  413.     pop .dicttomark
  414.   } ifelse SMask
  415. } bdef
  416.  
  417. % This procedure is called to actually render the soft mask.
  418. /.execmaskgroup {    % <masknum> <paramdict> <formdict> .execmaskgroup -
  419.     % Save our place in PDFfile, and do a gsave to avoid resetting
  420.     % the color space.
  421.   currentcolorspace 4 1 roll
  422.   PDFfile fileposition 4 1 roll
  423.     % We have to select the group's color space so that the
  424.     % background color will be interpreted correctly.
  425.   dup /Group oget /CS knownoget { resolvecolorspace dup setgcolorspace csput } if
  426.   exch dup /BBox get aload pop .begintransparencymaskgroup {
  427.     dup /Resources knownoget { oforce } { 0 dict } ifelse
  428.     exch false resolvestream
  429.     .execgroup .endtransparencymask
  430.   } stopped {
  431.     .discardtransparencymask stop
  432.   } if
  433.   PDFfile exch setfileposition 
  434.   setcolorspace
  435. } bdef
  436. % Paint a Form+Group XObject, either for a transparency mask or for a Do.
  437. /.execgroup {        % <resdict> <stream> .execgroup -
  438.   gsave //nodict begin
  439.   null SMask
  440.   1 .setopacityalpha 1 .setshapealpha
  441.   /Compatible .setblendmode
  442.     % Execute the body of the Form, similar to DoForm.
  443.   pdfopdict .pdfruncontext
  444.   end grestore
  445. } bdef
  446.  
  447. /.beginformgroup {    % groupdict bbox .beginformgroup -
  448.   exch mark exch            % bbox mark groupdict
  449.   dup /CS knownoget { resolvecolorspace setgcolorspace } if
  450.   dup /I knownoget { /Isolated exch 3 2 roll } if
  451.   dup /K knownoget { /Knockout exch 3 2 roll } if
  452.   pop .dicttomark
  453.         % Stack: bbox paramdict
  454.   exch aload pop
  455.   .begintransparencygroup
  456. } bdef
  457.  
  458. % .paintgroupform implements the Form PaintProc in the case where the
  459. % Form XObject dictionary includes a Group key.  See .paintform below.
  460. /.paintgroupform {    % <resdict> <stream> <formdict> .paintgroupform -
  461.   dup /Group oget exch /BBox oget
  462.         % Stack: resdict stream groupdict bbox
  463.   .beginformgroup {
  464.     .execgroup
  465.   } stopped {
  466.     .discardtransparencygroup stop
  467.   } if .endtransparencygroup
  468. } bdef
  469.  
  470. % Make an ImageType 103 (soft-masked) image.
  471. /makesoftmaskimage {    % <datasource> <imagemask> <SMask> makesoftmaskimage
  472.             %   <datasource> <imagemask>, updates currentdict =
  473.             %   imagedict
  474.         % See the ImageType 3 case of makemaskimage below.
  475.         % SMask is a stream, another Image XObject.
  476.         % Stack: datasource imagemask(false) smaskstreamdict
  477.   PDFfile fileposition exch
  478.   dup /Matte knownoget { /Matte exch def } if
  479.   dup length dict makeimagedict pop
  480.         % In order to prevent the two data sources from being
  481.         % aliased, we need to make at least one a reusable stream.
  482.         % We pick the mask, since it's smaller (in case we need to
  483.         % read all its data now).
  484.         % Stack: datasource imagemask(false) savedpos
  485.         % maskdict is currentdict
  486.   /DataSource DataSource mark
  487.     /Intent 1
  488.     /AsyncRead true
  489.   .dicttomark .reusablestreamdecode def
  490.   PDFfile exch setfileposition
  491.   currentdict end currentdict end
  492.   5 dict begin
  493.   /ImageType 103 def
  494.   /DataDict exch def
  495.   dup /InterleaveType 3 put
  496.   DataDict /Matte knownoget {
  497.     /Matte exch def
  498.   } if
  499.   AlphaIsShape { /ShapeMaskDict } { /OpacityMaskDict } ifelse exch def
  500.   /ColorSpace DataDict /ColorSpace get def
  501. } bdef
  502.  
  503. % ---------------- Color setting ---------------- %
  504.  
  505. /01_1 [0 1] readonly def
  506. /01_3 [0 1 0 1 0 1] readonly def
  507. /01_4 [0 1 0 1 0 1 0 1] readonly def
  508.  
  509. % The keys here are resolved (PostScript, not PDF) color space names.
  510. /csncompdict 8 dict begin
  511.   /DeviceGray { pop 1 } bdef
  512.   /DeviceRGB { pop 3 } bdef
  513.   /DeviceCMYK { pop 4 } bdef
  514.   /CIEBasedA { pop 1 } bdef
  515.   /CIEBasedABC { pop 3 } bdef
  516.   /ICCBased { 1 oget /N oget } bdef
  517.   /Separation { pop 1 } bdef
  518.   /DeviceN { 1 oget length } bdef
  519. currentdict end readonly def
  520.  
  521. /csrdict 13 dict begin 
  522.   /DeviceGray { } bdef
  523.   /DeviceRGB { } bdef
  524.   /DeviceCMYK { } bdef
  525.  
  526.   /CalGray {
  527.     1 oget 6 dict begin
  528.     dup /Gamma knownoget {
  529.       /exp load 2 packedarray cvx /DecodeA exch def
  530.     } if
  531.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  532.     dup /WhitePoint knownoget {
  533.       dup /WhitePoint exch def
  534.       dup /MatrixA exch def
  535.       /RangeLMN [ 3 2 roll { 0 exch } forall ] def
  536.     } if
  537.     /PDFColorSpace exch def [ /CIEBasedA currentdict end ]
  538.   } bdef
  539.  
  540.   /CalRGB {
  541.     1 oget 6 dict begin
  542.     dup /Gamma knownoget {
  543.       [ exch { /exp load 2 packedarray cvx } forall
  544.       ] /DecodeABC exch def
  545.     } if
  546.     dup /Matrix knownoget { /MatrixABC exch def } if
  547.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  548.     dup /WhitePoint knownoget { /WhitePoint exch def } if
  549.     /PDFColorSpace exch def [ /CIEBasedABC currentdict end ]
  550.   } bdef
  551.  
  552.   /CalCMYK {
  553.     pop /DeviceCMYK        % not defined by Adobe
  554.   } bdef
  555.  
  556.   /Lab {
  557.     1 oget 6 dict begin
  558.     dup /Range knownoget not { [-100 100 -100 100] } if
  559.     [0 100 null null null null] dup 2 4 -1 roll putinterval
  560.     /RangeABC exch def
  561.     /DecodeABC [{16 add 116 div} bind {500 div} bind {200 div} bind] def
  562.     /MatrixABC [1 1 1 1 0 0 0 0 -1] def
  563.     dup /BlackPoint knownoget { /BlackPoint exch def } if
  564.     dup /WhitePoint knownoget { /WhitePoint exch def } {
  565.       (   **** Warning: Lab colorspace is missing WhitePoint.\n)
  566.       pdfformaterror
  567.       /WhitePoint [0.9505 1 1.089] def
  568.     } ifelse
  569.     % scaling function g() for DecodeLMN construction
  570.     { dup 6 29 div ge {dup dup mul mul} {4 29 div sub 108 841 div mul} ifelse }
  571.     /DecodeLMN [
  572.       % Store white point implicitly inside procedures.
  573.       [ 3 index aload pop WhitePoint 0 get /mul .systemvar ] cvx bind
  574.       [ 4 index aload pop WhitePoint 1 get /mul .systemvar ] cvx bind
  575.       [ 5 index aload pop WhitePoint 2 get /mul .systemvar ] cvx bind
  576.     ] def pop
  577.     /PDFColorSpace exch def [ /CIEBasedABC currentdict end ]
  578.   } bdef
  579.  
  580.   /ICCBased {
  581.     dup 1 get type /dicttype ne {    % don't resolve more than once
  582.     PDFfile fileposition exch
  583.     dup dup 1 oget
  584.     mark exch { oforce } forall .dicttomark
  585.     dup dup true resolvestream
  586.     /ReusableStreamDecode filter /DataSource exch put
  587.     1 exch put
  588.     exch PDFfile exch setfileposition
  589.     % Resolve alternate color space
  590.     dup 1 get            % Get colorspace dictionary
  591.     dup /Alternate .knownget    % Check for alternate color space
  592.     { oforce resolvecolorspace /Alternate exch put }    % resolve and replace
  593.     { pop }            % remove colorspace dictionary
  594.     ifelse
  595.     } if
  596.   } bdef
  597.  
  598.   /Separation {
  599.     aload pop exch oforce resolvecolorspace
  600.                 % Contrary to PDF manuals up to v.1.5, Acrobat Distiller 3.01
  601.                 % can use /Identity name here instead of a function.
  602.     exch oforce resolveidfnproc
  603.     4 array astore
  604.   } bdef
  605.  
  606.   /DeviceN {
  607.     [ exch aload pop ]            % Copy into a new array
  608.     dup dup 1 oget            % Resolve Names array
  609.     [ exch { oforce } forall ]        % resolve each of the names
  610.     1 exch put
  611.     dup dup 2 oget resolvecolorspace
  612.     2 exch put
  613.     dup dup 3 oget resolvefnproc
  614.     3 exch put
  615.     dup length 4 gt {            % Check for attributes dict
  616.       dup dup 4 oget            % devn_array devn_array attr_dict
  617.       dup /Colorants knownoget        % Check for Colorants Dict
  618.     {    % Create a new attribute dict with only a Colorants dict entry.
  619.         % Resolve all of the Colorant dict entries.  This is needed
  620.         % to prevent a conflict if we attempt to resolve the tint
  621.         % transform functions of the Colorant color spaces multiple
  622.         % times.
  623.       exch pop            % Remove old attributes dict
  624.       << exch            % Start new attributes dict
  625.           % Build new Colorants dict with resolved entries
  626.       << exch { oforce resolvecolorspace } forall >>
  627.              /Colorants exch >>        % Finish new attributes dict
  628.      } if
  629.       4 exch put            % Put resolved or new attributes dict
  630.     } if
  631.   } bdef
  632.  
  633.   /Indexed {
  634.     aload pop 3 -1 roll oforce resolvecolorspace
  635.         % Stack: /Indexed hival lookup basespace
  636.         % If the underlying space is a Lab space, we must scale
  637.         % the output of the lookup table as part of DecodeABC.
  638.     dup dup type /arraytype eq { 0 get } if /CIEBasedABC eq {
  639.       dup 1 get /DecodeLMN known {
  640.     1 get dup length dict copy
  641.     begin /DecodeABC [ 0 2 4 {
  642.       RangeABC 1 index 1 add get RangeABC 2 index get sub /mul load
  643.       RangeABC 3 index get /add load
  644.       DecodeABC 6 -1 roll 2 idiv get [ 6 1 roll aload pop ] cvx
  645.     } for ] def
  646.     /RangeABC //01_3 def
  647.     currentdict end /CIEBasedABC exch 2 array astore
  648.       } if
  649.     } if
  650.     3 1 roll
  651.     oforce dup type /stringtype ne {
  652.         % The color lookup table is a stream.
  653.         % Get its contents.  Don't lose our place in PDFfile.
  654.         % Stack: /Indexed basespace hival lookup
  655.     PDFfile fileposition 5 1 roll true resolvestream
  656.         % Stack: filepos /Indexed basespace hival lookupstream
  657.     1 index 1 add
  658.         % Stack: filepos /Indexed basespace hival lookupstream len
  659.     3 index
  660.       dup dup type /arraytype eq { 0 get } if
  661.       //csncompdict exch get exec mul
  662.     string dup 3 1 roll readstring pop  % the string is padded with 0s
  663.         length 1 index length lt {
  664.           (   **** Warning: Short look-up table in the Indexed color space was padded with 0's.\n)
  665.           pdfformaterror
  666.         } if
  667.         % Stack: filepos /Indexed basespace hival table table'
  668.     5 -1 roll PDFfile exch setfileposition
  669.     }
  670.     if 4 array astore
  671.         % Replace the PDFColorSpace with the Indexed space if needed.
  672.     dup 1 get
  673.     dup type /arraytype eq {
  674.       dup length 2 ge {
  675.     dup 1 get type /dicttype eq {
  676.       dup 1 get /PDFColorSpace known {
  677.         dup 1 get /PDFColorSpace 3 index put
  678.       } if
  679.     } if
  680.       } if
  681.     } if pop
  682.   } bdef
  683.  
  684.   /I { % Bug 689815
  685.     (   **** Warning: The name /Indexed cannot be abbreviated to /I in the color space\n)
  686.     pdfformaterror
  687.     dup 0 /Indexed put
  688.     //Indexed exec 
  689.   } bdef
  690.  
  691.   /Pattern {
  692.     dup type /nametype ne {
  693.       dup length 1 gt {
  694.     1 oget resolvecolorspace
  695.     /Pattern exch 2 array astore
  696.       } if
  697.     } if
  698.   } bdef
  699.  
  700. currentdict end readonly def
  701.  
  702. /cssubst {        % <csname> cssubst <cspace'> true
  703.             % <csname> cssubst false
  704.   dup resolvecolorspace
  705.   dup 1 index ne { exch pop true } { pop pop false } ifelse
  706. } bdef
  707.  
  708. /csnames mark
  709.   /DeviceGray dup  /DeviceRGB dup  /DeviceCMYK dup  /Pattern dup
  710. .dicttomark readonly def
  711. /csresolve {        % <csresourcename> csresolve <cspace>
  712.   dup type /nametype ne {
  713.     (\n   **** Warning: CS/cs (setcolorspace) operand not a name: ) pdfformaterror
  714.     dup stderrfile dup 3 -1 roll write==only flushfile
  715.     ( ****\n) pdfformaterror
  716.     dup type /arraytype eq {    % Adobe InDesign + PDF Library has array
  717.       resolvecolorspace
  718.     } if
  719.   } {
  720.     dup Page /ColorSpace rget {
  721.       exch pop resolvecolorspace
  722.     } {
  723.       //csnames 1 index known not { /undefined cvx signalerror } if
  724.     } ifelse
  725.   } ifelse
  726. } bdef
  727. /resolvecolorspace {    % <cspace> resolvecolorspace <cspace'>
  728.   dup dup type /arraytype eq { 0 get } if
  729.   //csrdict exch .knownget
  730.   {
  731.     exec dup type /nametype ne { dup length 1 eq { 0 get } if } if
  732.   } {
  733.     dup type /nametype eq { csresolve } { csset exch pop } ifelse
  734.   } ifelse
  735. } bdef
  736.  
  737. /scresolve {    % <c0> ... scresolve <multi>
  738.         % We can't really make sc[n] and SC[N] work, because
  739.         % the color space information isn't available at
  740.         % conversion time; so we hack it by assuming that
  741.         % all the operands on the stack are used, and that
  742.         % if the top operand is a name, it's a Pattern resource.
  743.   dup type /nametype eq
  744.     { Page /Pattern rget { resolvepattern } { null } ifelse }
  745.   if
  746.   dup type /dicttype eq {
  747.         % Check the PaintType, if any (shading patterns don't
  748.         % have one).
  749.     dup /PaintType knownoget { 2 eq } { false } ifelse
  750.   } {
  751.     .pdfcount 1 gt
  752.   } ifelse
  753. } bdef
  754.  
  755. /.pdfpaintproc {         % <patdict> <resdict> .pdfpaintproc -
  756.   PDFDEBUG { pdfdict /PDFSTEPcount .knownget { 1 le } { true } ifelse { (%Begin PaintProc) print dup === flush } if } if
  757.     % For uncolored patterns, we have to unbind the current
  758.     % color and color space before running the PaintProc.
  759.     % There's no harm in doing this for colored patterns,
  760.     % so for simplicity, we always do it.
  761.   PDFfile fileposition 3 1 roll
  762.   q
  763.   //null sc1 //null SC1
  764.  
  765.   % Save old values on opstack, set pdfemptycount to new value.
  766.   pdfemptycount countdictstack
  767.   /pdfemptycount count 3 sub def 4 2 roll
  768.   %
  769.   % Stack: ... <old emptycount> <dictcount> <patdict> <resdict> 
  770.   %                                            |
  771.   %           New empty count points here -----+
  772.  
  773.   exch //false resolvestream pdfopdict .pdfruncontext
  774.  
  775.   countdictstack exch sub dup 0 gt { 
  776.      (   **** Warning: Pattern stream has imbalanced q/Q operators (too many q's)\n)
  777.      pdfformaterror
  778.      { Q } repeat
  779.    } {
  780.      pop
  781.    } ifelse
  782.  
  783.   % restore pdfemptycount
  784.   /pdfemptycount exch def
  785.  
  786.   Q
  787.   PDFDEBUG { pdfdict /PDFSTEPcount .knownget { 1 le } { //true } ifelse { (%End PaintProc) print dup === flush } if } if
  788.   PDFfile exch setfileposition
  789. } bdef
  790.  
  791. /resolvepattern {    % <patternstreamdict> resolvepattern <patterndict>
  792.         % Don't do the resolvestream now: just capture the data
  793.         % from the file if necessary.
  794.   dup length dict copy
  795.   dup /FilePosition .knownget {
  796.     1 index /File get dup fileposition 3 1 roll
  797.         % Stack: dict savepos pos file
  798.     dup 3 -1 roll setfileposition
  799.     dup 3 index /Length oget
  800.  
  801.     dup 65535 le {
  802.       dup 0 eq {
  803.         pop pop ()
  804.       } {
  805.         string readstring pop
  806.       } ifelse
  807.     } {
  808.       () /SubFileDecode filter /ReusableStreamDecode filter
  809.     } ifelse
  810.         % Stack: dict savepos file string
  811.     3 1 roll exch setfileposition
  812.     1 index /File 3 -1 roll put
  813.     dup /FilePosition undef
  814.   } if
  815.   dup /Shading knownoget {
  816.     resolveshading 1 index /Shading 3 -1 roll put
  817.   } if
  818.   dup /PaintProc [
  819.         % Bind the resource dictionary into the PaintProc.
  820.     2 index /Resources knownoget { oforce } { 0 dict } ifelse
  821.     /.pdfpaintproc cvx
  822.   ] cvx put
  823.   PDFDEBUG { pdfdict /PDFSTEPcount .knownget { 1 le } { true } ifelse { (%Pattern: ) print dup === flush } if } if
  824. } bdef
  825.  
  826. /ignore_color_op  (   **** Warning: Ignoring a color operation in a cached context.\n) readonly def
  827.  
  828. drawopdict begin
  829.   /g  { .incachedevice { % Bug 689302
  830.           pop //ignore_color_op pdfformaterror
  831.         } {
  832.           /DeviceGray cssubst { cs sc1 } { g } ifelse
  833.         } ifelse
  834.       } bdef
  835.  
  836.   /rg { .incachedevice {
  837.           pop pop pop //ignore_color_op pdfformaterror
  838.         } {
  839.           /DeviceRGB cssubst { cs sc* } { rg } ifelse
  840.         } ifelse
  841.       } bdef
  842.  
  843.   /k  { .incachedevice {
  844.           pop pop pop pop //ignore_color_op pdfformaterror
  845.         } {
  846.           k
  847.         } ifelse
  848.       } bdef
  849.  
  850.   /cs { .incachedevice {
  851.           pop //ignore_color_op pdfformaterror
  852.         } {
  853.           csresolve cs
  854.         } ifelse
  855.       } bdef
  856.  
  857.   /sc { .incachedevice {
  858.           .pdfcount { pop } repeat //ignore_color_op pdfformaterror
  859.         } {
  860.           scresolve { sc* } { sc1 } ifelse
  861.         } ifelse
  862.       } bdef
  863.  
  864.   /scn /sc load def
  865.  
  866.   /G  { .incachedevice {
  867.           pop //ignore_color_op pdfformaterror
  868.         } {
  869.           /DeviceGray cssubst { CS SC1 } { G } ifelse
  870.         } ifelse
  871.       } bdef
  872.  
  873.   /RG { .incachedevice {
  874.           pop pop pop //ignore_color_op pdfformaterror
  875.         } {
  876.           /DeviceRGB cssubst { CS SC* } { RG } ifelse
  877.         } ifelse
  878.       } bdef
  879.  
  880.   /K  { .incachedevice {
  881.           pop pop pop pop //ignore_color_op pdfformaterror
  882.         } {
  883.           K
  884.         } ifelse
  885.       } bdef
  886.  
  887.   /CS { .incachedevice {
  888.           pop //ignore_color_op pdfformaterror
  889.         } {
  890.           csresolve CS
  891.         } ifelse
  892.       } bdef
  893.  
  894.   /ri { .incachedevice {
  895.           pop //ignore_color_op pdfformaterror
  896.         } {
  897.           ri
  898.         } ifelse
  899.       } bdef
  900.  
  901.   /SC { .incachedevice {
  902.           .pdfcount { pop } repeat //ignore_color_op pdfformaterror
  903.         } {
  904.           scresolve { SC* } { SC1 } ifelse
  905.         } ifelse
  906.       } bdef
  907.  
  908.   /SCN /SC load def
  909. end
  910.  
  911. currentdict /ignore_color_op undef
  912.  
  913. % ---------------- Paths ---------------- %
  914.  
  915. drawopdict begin
  916.             % Path construction
  917.   /m /moveto load def
  918.   /l /lineto load def
  919.   /c /curveto load def
  920.   /v { currentpoint 6 2 roll curveto } def
  921.   /y { 2 copy curveto } def
  922.   /re {
  923.    4 2 roll moveto  exch dup 0 rlineto  0 3 -1 roll rlineto  neg 0 rlineto
  924.    closepath
  925.   } def
  926.   /h /closepath load def
  927.             % Path painting and clipping
  928.   /n { n } def
  929.   /S { S } def
  930.   /s { s } def
  931.   /f { f } def
  932.   /f* { f* } def
  933.   /B { B } def
  934.   /b { b } def
  935.   /B* { B* } def
  936.   /b* { b* } def
  937.   /W { W } def
  938.   /W* { W* } def
  939.   /sh { setfillstate resolvesh 
  940.         gsave 0 .setoverprintmode 
  941.         dup /.shading .knownget {
  942.           exch 
  943.           pop
  944.         } {
  945.           dup
  946.           .buildshading
  947.           dup 3 1 roll /.shading exch put
  948.         } ifelse
  949.         .shfill grestore 
  950.       } def
  951. end
  952.  
  953. % ---------------- XObjects ---------------- %
  954.  
  955. /xobjectprocs mark        % <dict> -proc- -
  956.   /Image { DoImage }
  957.   /Form { DoForm }
  958.   /PS { DoPS }
  959. .dicttomark readonly def
  960.  
  961. % Note that the keys in defaultdecodedict are resolved (PostScript, not PDF)
  962. % color space names.
  963. /defaultdecodedict mark
  964.   /DeviceGray { pop //01_1 } bind
  965.   /DeviceRGB { pop //01_3 } bind
  966.   /DeviceCMYK { pop //01_4 } bind
  967.   /CIEBasedA { 1 get /RangeA knownoget not { //01_1 } if } bind
  968.   /CIEBasedABC { 1 get /RangeABC knownoget not { //01_3 } if } bind
  969.   /ICCBased {
  970.      1 oget dup /Range knownoget {
  971.        exch pop
  972.      }{
  973.        /N get [ exch {0 1} repeat ] readonly
  974.      } ifelse
  975.   } bind
  976.   /Separation { pop //01_1 } bind
  977.   /DeviceN {
  978.     1 oget length [ exch {0 1} repeat ] readonly
  979.   } bind
  980.   /Indexed {
  981.     pop [ 0 1 BitsPerComponent bitshift 1 sub ]
  982.   } bind
  983. .dicttomark readonly def
  984.  
  985. /checkaltimage {    % <resdict> checkaltimage <resdict[']>
  986.   Printed {
  987.     dup /Alternates knownoget {
  988.       {
  989.     dup /DefaultForPrinting knownoget {
  990.       {
  991.         /Image oget exch pop exit
  992.       } {
  993.         pop
  994.       } ifelse
  995.     } {
  996.       pop
  997.     } ifelse
  998.       } forall
  999.     } if
  1000.   } if
  1001. } bdef
  1002.  
  1003. /makeimagedict {    % <resdict> <newdict> makeimagedict <imagemask>
  1004.             % On return, newdict' is currentdict
  1005.   begin
  1006.   /Width 2 copy oget def
  1007.   /Height 2 copy oget def
  1008.         % Handle missing BitsPerComponent later.
  1009.   /BitsPerComponent 2 copy knownoget { def } { pop } ifelse
  1010.   /Interpolate 2 copy knownoget { def } { pop } ifelse
  1011.   makeimagekeys
  1012. } bdef
  1013. /makeimagekeys {    % <resdict> makeimagekeys <imagemask>
  1014.         % newdict is currentdict
  1015.         % Assumes Width, Height, BPC, Interpolate already copied.
  1016.   /ImageType 1 def
  1017.   /ImageMatrix Width 0 0
  1018.         % Handle 0-height images specially.
  1019.     Height dup 0 eq { pop 1 } if neg 0 1 index neg
  1020.     6 array astore def
  1021.   dup /ImageMask knownoget dup { and } if {
  1022.         % Image mask
  1023.         % Decode is required for the PostScript image operators.
  1024.                 % AI8 writes bogus decode array [0 1 0 0 0 0 0 0]
  1025.     /Decode 2 copy knownoget { 0 2 getinterval } { //01_1 } ifelse def
  1026.         % BitsPerComponent is optional for masks.
  1027.     /BitsPerComponent 2 copy known { pop } { 1 def } ifelse
  1028.     true
  1029.   } {
  1030.         % Opaque image
  1031.     dup /ColorSpace knownoget 
  1032.     % JPXDecode filters can omit the /ColorSpace and /BitsPerComponent
  1033.     % keys, in which case the interpreter must retrieve this information
  1034.     % from inside the compressed stream. Here we substitute the most
  1035.     % likely values as a work-around.
  1036.     not {
  1037.       (   **** Warning: assuming JPX image is 8-bit RGB.\n) stderrprint
  1038.       [/DeviceRGB] /BitsPerComponent 8 def
  1039.     } if 
  1040.     resolvecolorspace /ColorSpace exch def
  1041.         % Decode is required for the PostScript image operators.
  1042.     /Decode 2 copy knownoget not {
  1043.       ColorSpace //defaultdecodedict
  1044.       ColorSpace dup type /arraytype eq { 0 get } if get exec
  1045.     } if def
  1046.     false
  1047.   } ifelse
  1048.         % Even though we're going to read data,
  1049.         % pass false to resolvestream so that
  1050.         % it doesn't try to use Length (which may not be present).
  1051.   exch false resolvestream /DataSource exch def
  1052. } bdef
  1053.  
  1054. /DoImage {
  1055.   checkaltimage dup length 6 add dict
  1056.   1 index /SMask knownoget { 1 index exch /SMask exch put } if
  1057.   1 index /Mask knownoget { 1 index exch /Mask exch put } if
  1058.   makeimagedict doimagesmask
  1059. } bdef
  1060. /makemaskimage {    % <datasource> <imagemask> <Mask> makemaskimage
  1061.             %   <datasource> <imagemask>, updates currentdict =
  1062.             %   imagedict
  1063.   dup type /arraytype eq {
  1064.     /ImageType 4 def
  1065.                 % Check that every element of the Mask is an integer.
  1066.     //false 1 index {
  1067.       type /integertype ne or
  1068.     } forall {
  1069.       (\n   **** Warning: Some elements of Mask array are not integers.\n)
  1070.       pdfformaterror
  1071.       [ exch { 0.5 add cvi } forall ]  % following AR4, 5, 6 implementation
  1072.     } if
  1073.     % Check elements of array are within 0::(2**BitsPerComponent)-1
  1074.     % This is a PostScript error, but AR ignores Mask in that case
  1075.     1 BitsPerComponent bitshift 1 sub //false 2 index {
  1076.       % stack: max_value result_bool value
  1077.       dup 0 lt exch 3 index gt or or
  1078.     } forall exch pop {
  1079.       (\n   **** Warning: Some elements of Mask array are out of range.\n)
  1080.       pdfformaterror
  1081.       [ exch { 0 .max 1 BitsPerComponent bitshift 1 sub .min } forall ]
  1082.     } if
  1083.     /MaskColor exch def
  1084.   } {
  1085.         % Mask is a stream, another Image XObject.
  1086.         % Stack: datasource imagemask(false) maskstreamdict
  1087.     PDFfile fileposition exch
  1088.     dup length dict makeimagedict pop
  1089.         % In order to prevent the two data sources from being
  1090.         % aliased, we need to make at least one a reusable stream.
  1091.         % We pick the mask, since it's smaller (in case we need to
  1092.         % read all its data now).
  1093.         % Stack: datasource imagemask(false) savedpos
  1094.         % maskdict is currentdict
  1095.     /DataSource DataSource mark
  1096.       /Intent 1
  1097.       /AsyncRead true
  1098.     .dicttomark .reusablestreamdecode def
  1099.     PDFfile exch setfileposition
  1100.     currentdict end currentdict end
  1101.     5 dict begin
  1102.     /ImageType 3 def
  1103.     /InterleaveType 3 def
  1104.     /DataDict exch def
  1105.     /MaskDict exch def
  1106.     /ColorSpace DataDict /ColorSpace get def
  1107.   } ifelse
  1108. } bdef
  1109.  
  1110. /doimagesmask { % <imagemask> doimagesmask -
  1111.   PDFusingtransparency { currentdict /SMask knownoget } { false } ifelse {
  1112.     .begintransparencymaskimage
  1113.     PDFfile fileposition exch
  1114.     gsave //nodict begin
  1115.     null /SoftMask gput
  1116.     1 .setopacityalpha 1 .setshapealpha
  1117.     /Compatible .setblendmode
  1118.     DoImage
  1119.     end grestore
  1120.     PDFfile exch setfileposition
  1121.     0 .endtransparencymask
  1122.     << /Subtype /Group /Isolated true 
  1123.       /.image_with_SMask true % pdfwrite needs : see gs/src/ztrans.c, gs/src/gdevpdft.c 
  1124.     >> 0 0 1 1 .begintransparencygroup
  1125.     doimage
  1126.     .endtransparencygroup
  1127.   } {
  1128.     doimage
  1129.   } ifelse
  1130. } bdef
  1131.  
  1132. % For development needs we define a special option for running with a new handler
  1133. % for images with a soft mask.
  1134. //systemdict /NEW_IMAGE3X .knownget not { //false } if {
  1135.   /doimagesmask { % <imagemask> doimagesmask -
  1136.     doimage
  1137.   } bdef
  1138. } if
  1139.  
  1140. /is_big_mask {  % - is_big_mask <bool>
  1141.   1 0 dtransform dup mul exch dup mul sqrt add
  1142.   0 1 dtransform dup mul exch dup mul sqrt add mul
  1143.   currentdevice getdeviceprops .dicttomark /BufferSpace .knownget not {
  1144.     4000000 % hack: Can't get the real default value from C source.
  1145.   } if
  1146.   2 % arbitrary
  1147.   div gt
  1148. } bind def
  1149.  
  1150. % For development needs we define a special option for running with a new handler
  1151. % for images with a soft mask.
  1152. //systemdict /NEW_IMAGE3X .knownget not { //false } if {
  1153.   /is_big_mask {  % - is_big_mask <bool>
  1154.     //false
  1155.   } bdef
  1156. } if
  1157.  
  1158. /doimage {    % <imagemask> doimage -
  1159.         % imagedict is currentdict, gets popped from dstack
  1160.   DataSource exch
  1161.   PDFusingtransparency
  1162.   currentdevice .devicename /pdfwrite ne { 
  1163.     % This is a temporary workaround for the bug 689080,
  1164.     % which is done under a rush of 8.63 release.
  1165.     % The purpose is to disable a conversion of an image with soft mask
  1166.     % into a Type 103 image, which currently allocates a full mask buffer
  1167.     % before writing clist. Note that imagemask installs
  1168.     % the transparency mask anyway (likely another bug), 
  1169.     % so the image is still masked.
  1170.     % With this workaround the Matte color is not working (ignored).
  1171.     is_big_mask not 
  1172.   } {
  1173.     true % pdfwrite doesn't need the workaround explained above,
  1174.          % and cannot work with it. 
  1175.   } ifelse
  1176.   and {
  1177.     currentdict /SMask knownoget
  1178.   } {
  1179.     false
  1180.   } ifelse {
  1181.     makesoftmaskimage
  1182.   } {
  1183.     currentdict /Mask knownoget {
  1184.       makemaskimage
  1185.     } if
  1186.   } ifelse
  1187.         % Stack: datasource imagemask
  1188.    { currentdict end setfillstate { imagemask } }
  1189.    { ColorSpace setgcolorspace currentdict end setfillblend { image } }
  1190.   ifelse
  1191.   stopped {
  1192.     dup type /dicttype eq { pop } if % Sometimes image fails to restore the stack
  1193.     $error /errorname get dup /ioerror eq {
  1194.       pop (\n   **** Warning: File has insufficient data for an image.\n)
  1195.       pdfformaterror
  1196.     } {
  1197.       (\n   **** Warning: File encountered ')
  1198.       exch 40 string cvs concatstrings
  1199.       (' error while processing an image.\n) concatstrings
  1200.       pdfformaterror
  1201.     } ifelse
  1202.   } if
  1203.         % Close the input stream, unless it is PDFfile or
  1204.         % PDFsource.
  1205.   dup dup PDFfile eq exch PDFsource eq or { pop } { closefile } ifelse
  1206. } bdef
  1207.  
  1208. /.paintform {    % <formdict> <resdict> <stream> .paintform -
  1209.   3 -1 roll dup /Group known PDFusingtransparency and {
  1210.     .paintgroupform
  1211.   } {
  1212.     pop pdfopdict .pdfruncontext
  1213.   } ifelse
  1214. } bdef
  1215.  
  1216. /DoForm {
  1217.     % Adobe 2nd edition of the PDF 1.3 spec makes /FormType
  1218.     % and /Matrix keys optional. Cope with the missing keys.
  1219.   begin <<
  1220.   currentdict /FormType known not { /FormType 1 } if
  1221.   currentdict /Matrix   known not { /Matrix { 1 0 0 1 0 0 } cvlit } if
  1222.   currentdict end { oforce } forall
  1223.   >>
  1224.   dup [ 2 index /Resources knownoget { oforce } { 0 dict } ifelse
  1225.   3 index false /resolvestream cvx
  1226.   /.paintform cvx
  1227.   ] cvx /PaintProc exch put
  1228.     % Adjust pdfemptycount since we have an extra dictionary on the stack
  1229.   pdfemptycount exch
  1230.   /pdfemptycount where pop count 2 sub /pdfemptycount exch put
  1231.   q execform Q            % gsave / grestore around the Form
  1232.     % Restore pdfemptycount
  1233.   /pdfemptycount where pop exch /pdfemptycount exch put
  1234. } bdef
  1235.  
  1236. /_dops_save 1 array def
  1237.  
  1238. /DoPS {
  1239.   DOPS
  1240.    {
  1241.      //_dops_save 0 save put
  1242.      true resolvestream cvx exec
  1243.      //_dops_save 0 get restore
  1244.    }
  1245.    { pop }
  1246.   ifelse
  1247. } bdef
  1248.  
  1249. currentdict /_dops_save undef
  1250.  
  1251. drawopdict begin
  1252.   /Do {
  1253.     setfillblend
  1254.     PDFfile fileposition exch
  1255.     dup Page /XObject rget { 
  1256.       exch pop dup /Subtype get xobjectprocs exch get
  1257.         % Don't leave extra objects on the stack while executing
  1258.         % the definition of the form.
  1259.       3 -1 roll 2 .execn
  1260.     } {
  1261.         % This should cause an error, but Acrobat Reader can
  1262.         % continue, so we do too.
  1263.       (   **** Undefined XObject resource: ) 
  1264.       exch =string cvs concatstrings (\n) concatstrings
  1265.       pdfformaterror
  1266.     } ifelse
  1267.     PDFfile exch setfileposition
  1268.   } bdef
  1269. end
  1270.  
  1271. % ---------------- In-line images ---------------- %
  1272.  
  1273. % Undo the abbreviations in an in-line image dictionary.
  1274. % Note that we must look inside array values.
  1275. % /I is context-dependent.
  1276. /unabbrevkeydict mark
  1277.   /BPC /BitsPerComponent  /CS /ColorSpace  /D /Decode  /DP /DecodeParms
  1278.   /F /Filter  /H /Height  /I /Interpolate  /IM /ImageMask  /W /Width
  1279. .dicttomark readonly def
  1280. /unabbrevvaluedict mark
  1281.   /AHx /ASCIIHexDecode  /A85 /ASCII85Decode  /CC /CalCMYK
  1282.   /CCF /CCITTFaxDecode  /CG /CalGray  /CR /CalRGB
  1283.   /DCT /DCTDecode  /CMYK /DeviceCMYK  /Fl /FlateDecode
  1284.   /G /DeviceGray  /RGB /DeviceRGB
  1285.   /I /Indexed  /LZW /LZWDecode  /RL /RunLengthDecode
  1286. .dicttomark readonly def
  1287. /unabbrevtypedict mark
  1288.   /nametype {
  1289.     //unabbrevvaluedict 1 index .knownget { exch pop } if
  1290.   }
  1291.   /arraytype {
  1292.     dup 0 1 2 index length 1 sub {
  1293.       2 copy get unabbrevvalue put dup
  1294.     } for pop
  1295.   }
  1296. .dicttomark readonly def
  1297. /unabbrevvalue {    % <obj> unabbrevvalue <obj'>
  1298.   oforce //unabbrevtypedict 1 index type .knownget { exec } if
  1299. } bdef
  1300.  
  1301. drawopdict begin
  1302.   /BI { mark } bdef
  1303.   /ID {
  1304.     counttomark 2 idiv dup 7 add dict begin {
  1305.       exch //unabbrevkeydict 1 index .knownget { exch pop } if
  1306.       exch unabbrevvalue def
  1307.     } repeat pop
  1308.     /IDFlag true def  % flag for stream processing.
  1309.     /File PDFsource def
  1310.     currentdict makeimagekeys doimage    
  1311.     % The Adobe documentation says that the data following ID
  1312.     % consists of "lines", and some PDF files (specifically, some files
  1313.     % produced by PCL2PDF from Visual Software) contain garbage bytes
  1314.     % between the last byte of valid data and an EOL.
  1315.         % Some files (PDFOUT v3.8d by GenText) have EI immediately following
  1316.         % the stream. Some have no EOL and garbage bytes.
  1317.         % Therefore, we skip all bytes before EI or EOL 
  1318.     0
  1319.       { PDFsource read not { //true exit } if
  1320.         dup 10 eq 1 index 13 eq or
  1321.           { pop PDFsource token pop /EI ne exit
  1322.           }
  1323.         if
  1324.         exch 69 eq 1 index 73 eq and { //false exit } if  % 'EI'
  1325.       }
  1326.     loop
  1327.     exch pop
  1328.       { /ID cvx /syntaxerror signalerror
  1329.       }
  1330.     if
  1331.   } bdef
  1332. end
  1333.  
  1334. % ================================ Text ================================ %
  1335.  
  1336. drawopdict begin
  1337.             % Text control
  1338.   /BT { BT } def
  1339.   /ET { ET } def
  1340.   /Tc { Tc } def
  1341.   /TL { TL } def
  1342.   /Tr { Tr } def
  1343.   /Ts { Ts } def
  1344.   /Tw { Tw } def
  1345.   /Tz { Tz } def
  1346.             % Text positioning
  1347.   /Td { Td } def
  1348.   /TD { TD } def
  1349.   /Tm { Tm } def
  1350.   /T* { T* } def
  1351.             % Text painting
  1352.   /Tj { Tj } def
  1353.   /' { ' } def
  1354.   /" { " } def
  1355.   /TJ { TJ } def
  1356.  
  1357.   /Tform { Tform } def  % Text formatting and painting for AcroForm
  1358.                         % without appearance streams.
  1359.   /QBT {
  1360.     Q BT
  1361.     (   **** Warning: invalid operator QBT processed as Q BT .\n)
  1362.     pdfformaterror  % Bug 690089
  1363.   } def
  1364.  
  1365. end
  1366.  
  1367. % ============================== Annotations ============================== %
  1368.  
  1369.  
  1370.  
  1371. % Get and normalize an annotation's rectangle.
  1372. /annotrect {        % <annot> annotrect <x> <y> <w> <h>
  1373.   /Rect oget aload pop
  1374.   exch 3 index sub dup 0 lt { dup 5 -1 roll add 4 1 roll neg } if
  1375.   exch 2 index sub dup 0 lt { dup 4 -1 roll add 3 1 roll neg } if
  1376. } bdef
  1377.  
  1378. % Set an annotation color.
  1379. /annotsetcolor {    % <annot> annotsetcolor -
  1380.   /C knownoget { aload pop setrgbcolor } { 0 setgray } ifelse
  1381. } bdef
  1382.  
  1383. % Draw the border.  Currently, we ignore requests for beveling, and we
  1384. % don't round the corners of rectangles.
  1385. /strokeborder {        % <annot> <width> <dash> strokeborder -
  1386.   1 index 0 ne {    % do not draw if border width is 0
  1387.     gsave
  1388.     2 index annotsetcolor
  1389.     0 setdash dup setlinewidth
  1390.     exch annotrect
  1391.     2 { 4 index sub 4 1 roll } repeat
  1392.     2 { 4 index 0.5 mul add 4 1 roll } repeat
  1393.     rectstroke pop
  1394.     grestore
  1395.   } {
  1396.     pop pop pop
  1397.   } ifelse
  1398. } bdef
  1399.  
  1400. % Draw an annotation border.
  1401. /drawborder {        % <annot> drawborder -
  1402.   gsave
  1403.   dup /BS known 1 index /Border known or {
  1404.   dup /BS knownoget {
  1405.       dup type /dicttype ne   % <annot> <border> <bad?>
  1406.     } {
  1407.       dup /Border oget 
  1408.       dup type /arraytype ne  % <annot> [border] <bad?>
  1409.     } ifelse
  1410.     { 
  1411.       (   **** Warning: Wrong type of annotation border object.\n)
  1412.       pdfformaterror
  1413.     } if
  1414.     dup type /dicttype eq {
  1415.     dup /W knownoget not { 1 } if
  1416.       % Per PDF1.6 Reference table 8.13, /W in the border style dictionary is
  1417.       % expressed in points (an absolute unit), so compensate here for any
  1418.       % scaling of the PostScript user space done due to /UserUnit.
  1419.       % Scaling due to -dPDFFitPage is not undone, to keep the correct border width
  1420.       % compared to the size of the surrounding marks.
  1421.       //systemdict /NoUserUnit .knownget not { false } if not
  1422.       //systemdict /PDFFitPage known not and {    % UserUnit is ignored if -dPDFFitPage
  1423.         Page /UserUnit knownoget { div } if
  1424.       } if
  1425.     [] 2 index /S knownoget {
  1426.       /D eq { 2 index /D knownoget not { [3] } if exch pop } if
  1427.     } if 3 -1 roll pop strokeborder
  1428.   } {
  1429.       dup 2 get
  1430.       exch dup length 3 gt { 3 get } { pop [] } ifelse
  1431.       strokeborder
  1432.     } ifelse
  1433.     } {
  1434.       1 [] strokeborder
  1435.     } ifelse
  1436.   grestore
  1437. } bdef
  1438.  
  1439. %
  1440. %   The PDF annotation F (flags) integer is bit encoded.
  1441. %   Bit 1 (LSB) Invisible:  1 --> Do not display if no handler.
  1442. %         Note:  We have no handlers but we ignore this bit.
  1443. %   Bit 2 Hidden:  1 --> Do not display.  We will not display if this bit is set.
  1444. %   Bit 3 Print:  1 --> Display if printing.  We will display if this bit set
  1445. %         (and not hidden) and Printed is true
  1446. %   Bit 4 NoZoom:  1 --> Do not zoom annotation even if image is zoomed.
  1447. %   Bit 5 NoRotate:  1 --> Do not rotate annotation even if image is rotated.
  1448. %   Bit 6 NoView:  0 --> Display if this is a 'viewer'.  We will display
  1449. %         if this bit is not set (and not hidden) and Printed is false
  1450. %   Bit 7 Read Only - 1 --> No interaction.  We ignore this bit
  1451. %
  1452. /annotvisible {            % <annot> annotvisible <visible>
  1453.   /F knownoget not { 0 } if         % Get flag value
  1454.   dup 2 and 0 eq              % Check hidden flag
  1455.   exch dup 4 and 0 ne Printed and    % Check print flag
  1456.   exch 32 and 0 eq Printed not and    % Check noview flag
  1457.   or                    % Combine print and view
  1458.   and                     % Combine with 'hidden' flag test
  1459. } bdef
  1460.  
  1461. /drawwidget {            % <scalefactor_x> <scalefactor_y> <annot> drawwidget -
  1462.   dup /AP knownoget {
  1463.     dup /N known not {
  1464.       (   **** Appearance dictionary (AP) lacks the mandatory normal (N) appearance.\n)
  1465.       pdfformaterror
  1466.     } if
  1467.     //false
  1468.     [/N /R /D] {
  1469.     % stack: scalex scaley annot appearance false key
  1470.       2 index exch knownogetdict {
  1471.     exch not exit 
  1472.       } if
  1473.     } forall
  1474.     % stack: scalex scaley annot appearance value true
  1475.     % stack: scalex scaley annot appearance false
  1476.     dup {
  1477.       pop exch pop
  1478.         % Acrobat Distiller produces files in which this Form
  1479.         % XObject lacks Type and Subtype keys.  This is illegal,
  1480.         % but Acrobat Reader accepts it.  The only way we can
  1481.         % tell whether this is a Form or a set of sub-appearances
  1482.         % is by testing for the stream Length or File key.
  1483.                 % If the stream lacks Length key, try File key.
  1484.       dup /Length known 1 index /File known or {
  1485.               % If this is a form then simply use it
  1486.         //true
  1487.       } {
  1488.         1 index /AS knownoget not {
  1489.               % If we do not have AS then use any appearance
  1490.         { exch pop oforce exit } forall //true
  1491.         } { 
  1492.         % Stack: annot Ndict AS
  1493.         % Get the specified appearance.  If no appearance, then
  1494.         % display nothing - set stack = false.
  1495.       knownoget
  1496.         } ifelse
  1497.       } ifelse
  1498.     } {
  1499.       exch pop    % discard useless AP dictionary
  1500.     } ifelse
  1501.  
  1502.         % Stack: scalex scaley annot appearance true
  1503.         % Stack: scalex scaley annot false
  1504.     {
  1505.               % Draw appearance
  1506.                 % Initialize graphic following "7.4.4 Appearance Streams"
  1507.       q graphicsbeginpage textbeginpage
  1508.       1 index annotrect pop pop translate
  1509.       3 index 3 index scale    % Apply scale factors
  1510.       dup /BBox knownoget {
  1511.         1 index /Matrix knownoget not { {1 0 0 1 0 0} } if
  1512.         .bbox_transform pop pop
  1513.         % Compensate for non-zero origin of BBox
  1514.         neg exch neg exch translate
  1515.       } if
  1516.       DoForm Q
  1517.     } if
  1518.   } {
  1519.     dup /FT knownoget {
  1520.       /Tx eq {
  1521.       % Stack: scalex scaley annot
  1522.     dup /DA known 1 index /V known and {
  1523.       dup /DA oget
  1524.       q graphicsbeginpage textbeginpage
  1525.       1 index annotrect pop pop translate
  1526.       3 index 3 index scale        % Apply scale factors
  1527.       cvx exec
  1528.       dup /V oget
  1529.       0 0 moveto dup false charpath pathbbox newpath 3 -1 roll
  1530.       sub abs 3 1 roll sub abs
  1531.       3 index annotrect 4 2 roll pop pop
  1532.       6 index mul exch 6 index mul
  1533.         % stack: scale annot V vsize hsize vrect hrect
  1534.       % Calculate horizontal justification first
  1535.       % horizontal can be left (Q=0), center (Q=1), or right (Q=2) justification
  1536.       3 -1 roll 
  1537.         % stack: scalex scaley annot V vsize vrect hrect hsize 
  1538.       5 index /Q knownoget not { 0 } if    % default 0 == left
  1539.       dup 0 eq {
  1540.           pop pop pop 0        % left justified
  1541.         } {
  1542.         1 eq {
  1543.           2 div exch 2 div exch sub    % centered
  1544.         } {
  1545.           sub            % right justified (hrect - hsize)
  1546.         } ifelse
  1547.       } ifelse
  1548.         % stack: scalex scaley annot V vsize vrect hoffset
  1549.       % Center the text vertically in the rect (Acrobat Reader seems to do this)
  1550.       3 1 roll 2 div exch 2 div sub abs
  1551.         % stack: scalex scaley annot V hoffset voffset
  1552.       moveto show
  1553.       Q
  1554.     } if
  1555.       } if
  1556.     } if
  1557.   } ifelse
  1558.   pop pop pop
  1559. } bdef
  1560.  
  1561. %  For annotation object we have to determine the size of the output rectangle
  1562. %  and the size of the BBox for the form XObject. From these we calculate
  1563. %  a scale factors for drawing it.
  1564. /calc_annot_scale {        % <annot> calc_annot_scale <x_scale> <y_scale>
  1565.   dup /Rect knownoget {
  1566.     pop dup annotrect 4 2 roll pop pop     % get width height size in user space
  1567.     3 -1 roll /AP knownoget {
  1568.       /N knownogetdict {
  1569.     dup /Matrix knownoget not { {1 0 0 1 0 0} } if
  1570.     exch /BBox knownoget {  % x y  {matrix} [box]
  1571.           exch .bbox_transform  % x y  x0 y0 x1 y1
  1572.           3 -1 roll sub         % x y  x0 x1 y1-y0
  1573.           3 1 roll exch sub     % x y  y1-y0 x1-x0 
  1574.           2 copy mul 0 eq {
  1575.             (   **** Warning: /BBox has zero width or height, which is not allowed.\n)
  1576.             pdfformaterror
  1577.             pop pop pop pop 1 1    % zero size -- revert to unity scaling
  1578.           } { 
  1579.         3 1 roll div        % x x1-x0 y/(y1-y0)
  1580.             3 1 roll div        % y/(y1-y0) x/(x1-x0)
  1581.             exch                % x/(x1-x0) y/(y1-y0)
  1582.           } ifelse
  1583.     } {
  1584.       pop pop pop 1 1    % default to unity scaling
  1585.     } ifelse        % if we have /BBox
  1586.       } {
  1587.     pop pop 1 1
  1588.       } ifelse            % if we have /N
  1589.     } {
  1590.       pop pop 1 1
  1591.     } ifelse            % if we have /AP
  1592.   } {
  1593.     (   **** Warning: /Annot dict is missing required /Rect entry.\n)
  1594.     pdfformaterror
  1595.     pop 1 1
  1596.   } ifelse
  1597. } bdef
  1598.  
  1599. /drawlink {            % <annot> drawlink -
  1600.   dup drawborder dup calc_annot_scale 3 -1 roll drawwidget
  1601. } bdef
  1602.  
  1603. % Draw an annotation.
  1604. /drawannottypes mark
  1605.   /Link { drawlink } bind
  1606. .dicttomark readonly def
  1607. /drawannot {        % <annot> drawannot -
  1608.   dup annotvisible {
  1609.     gsave
  1610.     dup dup /Subtype knownoget {
  1611.       //drawannottypes exch .knownget {
  1612.         exec
  1613.       } {
  1614.         dup calc_annot_scale 3 -1 roll drawwidget    % Use drawwidget for everything else
  1615.       } ifelse            % type known
  1616.     } {
  1617.       pop
  1618.       (   **** Warning: /Annot dict without required /Subtype entry is ignored.\n)
  1619.       pdfformaterror
  1620.     } ifelse
  1621.     grestore
  1622.   } if pop            % annotvisible
  1623. } bdef
  1624. currentdict /drawannottypes undef
  1625.  
  1626. % ============================ AcroForm fields ============================ %
  1627.  
  1628. % Get an attribure of the 0th annotation of a node
  1629. /annot_oget {  % <annot> /Name annot_oget <value>
  1630.   1 index /Kids knownoget {
  1631.     0 oget exch oget exch pop
  1632.   } {
  1633.     oget
  1634.   } ifelse
  1635. } bdef
  1636.  
  1637. % All procedures have the signature:
  1638. % <acroform> <field> <annot|field> foo <acroform> <field> <annot|field>
  1639. /draw_terminal_field_dict 4 dict begin
  1640.  
  1641. /Btn {
  1642.   1 index /Tf pget not { 0 } if
  1643.   dup 16#20000 and 0 ne {
  1644.     pop % Push button
  1645.     dup /AP known {
  1646.       1 1 2 index drawwidget
  1647.     } {
  1648.       (Push button without appearance stream is not yet implemented) =
  1649.     } ifelse
  1650.   } {
  1651.     16#10000 and 0 ne {
  1652.         % Radio button
  1653.         dup /AP known {
  1654.           1 index /Kids oget {
  1655.             1 1 3 -1 roll drawwidget
  1656.           } forall
  1657.         } {
  1658.           (Radio button without appearance stream is not yet implemented) =
  1659.         } ifelse
  1660.     } {
  1661.         % Checkbox
  1662.         dup /AP known {
  1663.           dup 1 1 3 -1 roll drawwidget
  1664.         } {
  1665.           (CkeckBox without appearance stream is not yet implemented) =
  1666.         } ifelse
  1667.     } ifelse
  1668.   } ifelse
  1669. } bdef
  1670.  
  1671. /Tx {
  1672.   dup /AP known {
  1673.     dup 1 1 3 -1 roll drawwidget
  1674.   } {
  1675.     2 index /NeedAppearances knownoget not { //false } if {
  1676.       dup /AP << /N 10 dict dup cvx begin >> put
  1677.       /Subtype /Form def
  1678.       /BBox [ 0 0 4 index /Rect oget { oforce } forall  3 -1 roll sub abs 3 1 roll sub abs exch ] def
  1679.       /Resources 3 index /DR pget not { 0 dict } if def
  1680.       /File 1000 string dup 3 1 roll def
  1681.       /Length 0 def
  1682.                             % <acroform> <field> <annot> (string)
  1683.       /NullEncode filter    % <acroform> <field> <annot> file 
  1684.  
  1685.       dup (BT ) writestring
  1686.       2 index /DA pget not { () } if
  1687.       [ exch
  1688.         { token {
  1689.             dup /Tf eq {
  1690.               2 index 0 eq {
  1691.                 /BBox load 3 get
  1692.                 0.75 mul   % empirical constant
  1693.                 4 -1 roll pop 3 1 roll
  1694.               } if
  1695.             } if
  1696.             exch
  1697.           } {
  1698.             exit
  1699.           } ifelse
  1700.         } loop
  1701.       ]
  1702.       { 1 index exch write== } forall
  1703.       dup 3 index /MaxLen pget not { 0 } if write=
  1704.       dup 3 index /V pget not { () } if write==
  1705.       dup 3 index /Ff pget not { 0 } if write=
  1706.       dup 3 index /Q pget not { 0 } if write=
  1707.       dup (Tform ET) write=
  1708.       end
  1709.       closefile             %  <acroform> <field> <annot>
  1710.       dup 1 1 3 -1 roll drawwidget
  1711.     } if
  1712.   } ifelse
  1713. } bdef
  1714.  
  1715. /Ch {
  1716.   (Ch is not yet implemened) ==
  1717. } bdef
  1718.  
  1719. /Sig {
  1720.   (Sig is not yet implemened ) ==
  1721. } bdef
  1722.  
  1723. currentdict end def
  1724.  
  1725. /draw_terminal_field {   % <field> draw_terminal_field -
  1726.  dup /Kids knownoget { 0 oget } { dup } ifelse
  1727.  dup /P knownoget {
  1728.     /Page load eq {
  1729.       //draw_terminal_field_dict 2 index /FT pget not { 0 } if .knownget {
  1730.         exec
  1731.       } if
  1732.    } if
  1733.  } if
  1734.  pop pop
  1735. } bdef
  1736.  
  1737. % We distinguish 4 types of nodes on the form field tree:
  1738. %  - non-terminal field - has a kid that refers to the parent (or anywhere else)
  1739. %  - terminal field with separate widget annotations - has a kid that doesn't have a parent
  1740. %  - terminal field with a merged widget annotation - has no kids
  1741. %  - widget annotation - has /Subtype and /Rect
  1742. %
  1743. % The recursive enumeration of the form fields doesn't descend into widget annotations.
  1744.  
  1745. /draw_form_field { % <field> draw_form_field -
  1746.   dup /Kids knownoget {                       % field []
  1747.     dup 0 oget /Parent knownoget {            % field [] kid
  1748.       pop % mon-terminal field                % field []
  1749.       exch pop                                % []
  1750.       { oforce draw_form_field } forall
  1751.     } {
  1752.       pop draw_terminal_field % separate annots % -
  1753.     } ifelse
  1754.   } {
  1755.     draw_terminal_field % merged annotation   % -
  1756.   } ifelse
  1757. } bdef
  1758.  
  1759. /draw_acro_form {        % <form> draw_acro_form -
  1760.   dup /Fields knownoget {
  1761.     { oforce draw_form_field } forall
  1762.   } if
  1763.   pop 
  1764. } bdef
  1765.  
  1766. currentdict /draw_terminal_field_dict undef
  1767.  
  1768. end            % pdfdict
  1769. end            % GS_PDF_ProcSet
  1770. .setglobal
  1771.